dim adrv2 as uinteger

sub vpokechr(adrv as uinteger,chrv as uinteger,chmadr as uinteger)
  poke uinteger 23675,chmadr+(chrv*8)
  print at int(adrv/32),adrv mod 32;"\A"
  adrv=adrv mod 768
  poke 22528+adrv,peek(chmadr+2048+chrv)
  'for i=0 to 7
  '  poke 16384+(adrv band 255)+((int(adrv/256))*2048)+(i*256),peek (chmadr+(chrv*8)+i)
  '  next
  end sub

sub vpokechrattr(adrv as uinteger,chrv as uinteger,chmadr as uinteger,tatq as ubyte)
  poke uinteger 23675,chmadr+(chrv*8)
  print at int(adrv/32),adrv mod 32;"\A"
  adrv=adrv mod 768
  'poke 22528+adrv,peek(chmadr+2048+chrv)
  poke 22528+adrv,tatq
  end sub





sub vpcls(chrv as uinteger,chmadr as uinteger)
  for adrv2=0 to 767
    poke 22528+adrv2,peek(chmadr+2048+chrv)
    for i=0 to 7
      poke 16384+(adrv2 band 255)+((int(adrv2/256))*2048)+(i*256),peek (chmadr+(chrv*8)+i)
      next
    next
  end sub

sub vpprint(adrv1 as uinteger,chmadr2 as uinteger,textv$ as string)
  for adrv2=0 to len(textv)
    vpokechr(adrv1+adrv2,val(textv$(adrv2)),chmadr2)
    next
  end sub


